home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 2
/
Merciful - Disc 2.iso
/
software
/
h
/
highspeedpascalv2.0b.dms
/
highspeedpascalv2.0b.adf
/
Interface
/
Timer.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
609b
|
49 lines
Unit Timer;
Interface
Uses Exec;
Type
ttimeval = Record
tv_secs: LongInt;
tv_micro: LongInt;
End;
ttimerequest = Record
tr_node: tIORequest;
tr_time: ttimeval;
End;
ptimeval = ^ttimeval;
pLibrary = ^tLibrary;
Var
TimerBase: pLibrary;
Const
TR_ADDREQUEST = $9;
TR_GETSYSTIME = $A;
TR_SETSYSTIME = $B;
UNIT_MICROHZ = $0;
UNIT_VBLANK = $1;
TIMERNAME = 'timer.device';
Procedure AddTime
(dest: ptimeval;
src: ptimeval);
Procedure SubTime
(dest: ptimeval;
src: ptimeval);
Function CmpTime
(dest: ptimeval;
src: ptimeval): LongInt;
End.